#!/usr/bin/perl
#
# Print the name of the config file from the access point address.
#
# $Id: cfgname 20 2002-11-16 17:36:18Z cvs $
#
use Digest::MD5 qw(md5_hex);
 
foreach $ap (@ARGV) {
	print "${ap}: config-" . md5_hex("obfuscation" . $ap), "\n";
}
